home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / sep91.zip / 9N09088A < prev    next >
Text File  |  1991-07-10  |  1KB  |  47 lines
  1. /*****************************************************
  2.  * Listing 6 signon.c
  3.  *
  4.  * sign_on() -- function to automatically sign on to
  5.  *              a mainframe application
  6.  *
  7.  *****************************************************/
  8.  
  9. int sign_on(void) {
  10.  
  11.      int err;
  12.  
  13.      if ((err = keys_to_host("MYAPP")) ! = 0)
  14.           return(err);
  15.      if ((err = input_to_host("@E")) != 0)
  16.           return(err);
  17.      if ((err = host_wait()) != 0)
  18.           return(err);
  19.  
  20.      /* search PS repeatedly until finding a string
  21.       * that indicates success or failure
  22.       */
  23.  
  24.      while (1) {
  25.           err = find_msg("ENTER PASSWORD");
  26.           if (err == -1)
  27.                break; /* application available */
  28.           else if (err == > 0)
  29.                return(err);
  30.  
  31.           err = find_msg("NOT AVAILABLE");
  32.           if (err == -1)
  33.                return(err); /* not available */
  34.           else if (err == > 0)
  35.                return(err);
  36.      }
  37.  
  38.      /* enter 2 tabs and password */
  39.      if ((err = keys_to_host("@T@TROSEBUD")) ! = 0)
  40.           return(err);
  41.      if ((err = input_to_host("@E")) != 0)
  42.           return(err);
  43.  
  44.      return(0);
  45. }
  46.  
  47.